CD-ROM Today (Latin America) Volume 1 #6/CD-ROM Today 6 Latam.iso/referenc/evol/map.dxr/00007_move map window script.ls

Text File | 1996-11-08 | 980 b | 22 lines

on mouseDown
  SelectCursor(CHC())
  tell the stage
    puppetSprite(mapSprite(), 1)
    set the member of sprite mapSprite() to member "mapdrag"
    set the foreColor of sprite mapSprite() to 255
    set the ink of sprite mapSprite() to BGTRANS()
    set the rect of sprite mapSprite() to the rect of window MapName() - rect(the stageLeft, the stageTop, the stageLeft, the stageTop)
    set the visible of window MapName() to 0
    set offseth to the locH of sprite mapSprite() - the mouseH
    set offsetv to the locV of sprite mapSprite() - the mouseV
    repeat while the mouseDown
      set the locH of sprite mapSprite() to the mouseH + offseth
      set the locV of sprite mapSprite() to the mouseV + offsetv
      updateStage()
    end repeat
    set the rect of window MapName() to the rect of sprite mapSprite() + rect(the stageLeft, the stageTop, the stageLeft, the stageTop)
    set the visible of window MapName() to 1
    puppetSprite(mapSprite(), 0)
  end tell
end